home *** CD-ROM | disk | FTP | other *** search
/ Hot Metal Pro 4.0 / Hot Metal Pro 4.0.iso / HMPRO4 / cgi.z / changlnk.pl < prev    next >
Encoding:
Perl Script  |  1997-06-20  |  397 b   |  23 lines
  1. #! /usr/local/bin/perl
  2.  
  3. $file = "/home/~yourname/public_html/links.htm";
  4.  
  5. # Begin the Editing of the Links File
  6. open (FIL,"$file");
  7. @LINES=<FIL>;
  8. close(FIL);
  9. $SIZE=@LINES;
  10.  
  11. # Open Link File to Output
  12. open (MSG,">$file");
  13.  
  14. for ($i=0;$i<=$SIZE;$i++) {
  15.    $_=$LINES[$i];
  16.   if (/<li><a href=(.*)>(.*)<\/a>/) {
  17.     print MSG "<li><a href=\"$1\">$2</a>\n";
  18.   }
  19.    else { print MSG $_; }
  20. }
  21. close (MSG);
  22.  
  23.